home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Know Your Baseball - The Greatest Player Resource
/
Know Your Baseball - Greatest Player.iso
/
Baseball
/
Director
/
KTGCST.CST
/
00066_Script_ For Def Field
< prev
next >
Wrap
Text File
|
1998-09-21
|
2KB
|
67 lines
global EnterRollist,XitRollist,lastrollover,gButtonState,thisrollover,gb
on SpriteOn
set the blend of sprite(thisrollover) = 100
end
on Spriteoff
set mysprite = lastrollover
-- put lastrollover
-- put getat(gbuttonstate,mysprite)
if getat(gbuttonstate,mysprite) = 0 then
set the blend of sprite(mysprite) = 0
end if
end
on SpriteoffBall
set mysprite = lastrollover
if mysprite < 20 then exit
if getat(gbuttonstate,mysprite) = 0 then
set the blend of sprite(lastrollover) = 0
set the blend of sprite((lastrollover)-20) = 0
end if
end
on SpriteOnBall
set mysprite = thisrollover
if mysprite < 20 then exit
set the blend of sprite(thisrollover) = 100
set the blend of sprite(thisrollover-20) = 100
end
on SpriteoffField
set mysprite = lastrollover+10
if getat(gbuttonstate,mysprite) = 0 then
set the blend of sprite(lastrollover-10) = 0
set the blend of sprite(lastrollover+10) = 0
updateStage
end if
end
on SpriteOnField
if thisrollover < 10 then exit
set the blend of sprite(thisrollover-10) = 100
set the blend of sprite(thisrollover+10) = 100
end
on SpriteoffField2
set mysprite = lastrollover-14
if mysprite < 1 then exit
set upper = lastrollover+6
if getat(gbuttonstate,upper) = 0 then
set the blend of sprite mysprite = 0
set the blend of sprite upper = 0
end if
end
on SpriteOnField2
if thisrollover < 14 then exit
set the blend of sprite(thisrollover-14) = 100
set the blend of sprite(thisrollover+6) = 100
end